Drives, eigenschap

Beschrijving

Geeft een collectie Drives, bestaande uit alle Drive-objecten die beschikbaar zijn op de lokale computer.

Syntaxis

object.Drives

Het object is altijd een FileSystemObject.

Notities

De media van verwijderbare media stations hoeven niet in het station te zijn geplaatst om in de collectie Drives te worden weergegeven.

Met een For Each...Next-constructie kunt u de leden van de collectie Drives een voor een verwerken. Dit wordt in de volgende code ge∩llustreerd.

Sub ShowDriveList
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = 3 Then
      n = d.ShareName
        Else
      n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub